home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ IIS Settings General.xpl < prev    next >
Text File  |  2000-12-20  |  2KB  |  77 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Internet Information Server\Other"
  5. "NAME"="General Options"
  6. "VERSION"="1.16"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Cache Security Information"
  9. "TEXT 2"="Log successful requests"
  10. "TEXT 3"="Log requests causing errors"
  11. "DESCRIPTION 1"="If "Cache Security Information" is activated, IIS will keep the security desriptors so checking permisson can be much faster than normal."
  12. "DESCRIPTION 2"="Activate "Log successful requests" if IIS should log successful requests (default: Deactivated)."
  13. "DESCRIPTION 3"="Activate "Log requests causing errors" if IIS should log requests that were aborted (default: Enabled)."
  14. "DESCRIPTION 4"="NOTE: This settings also affect Personal Web Server (PWS)."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21. 'Declaration of some constants
  22. sPC="HKLM\System\CurrentControlSet\Services\W3SVC\Enum\"
  23. sP="HKLM\System\CurrentControlSet\Services\W3SVC\Parameters\"
  24. sP2="HKLM\System\CurrentControlSet\Services\InetInfo\Parameters\"
  25. vCS="CacheSecurityDescriptor" 'DW
  26. vLS="LogSuccessfulRequests" 'DW
  27. vLE="LogErrorRequests" 'DW
  28.  
  29. 'Called when the Plugin is started
  30. Sub Plugin_Initialize
  31.  if RegPathExists(sPC) then
  32.   i=RegReadValue(sp2&vcs)
  33.   if i=1 then SetUIElement 1,true
  34.  
  35.   i=RegReadValue(sp&vls)
  36.   if i=1 then SetUIElement 2,true
  37.  
  38.   i=RegReadValue(sp&vle)
  39.   if i=1 then SetUIElement 3,true
  40.  else
  41.   Disable
  42.  end if
  43. End Sub
  44.  
  45. 'Called when the Plugin should validate the Data the user has entered
  46. Sub Plugin_CheckData(ElementIndex)
  47. End Sub
  48.  
  49. 'Called when the Plugin should apply the changes
  50. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  51.  b=GetUIElement(1)
  52.  if b=true then
  53.   Call RegWriteValue(sp2&vcs,1,2)
  54.  else
  55.   Call RegWriteValue(sp2&vcs,0,2)
  56.  end if
  57.  
  58.  b=GetUIElement(2)
  59.  if b=true then
  60.   Call RegWriteValue(sp&vls,1,2)
  61.  else
  62.   Call RegWriteValue(sp&vls,0,2)
  63.  end if
  64.  
  65.  b=GetUIElement(3)
  66.  if b=true then
  67.   Call RegWriteValue(sp&vle,1,2)
  68.  else
  69.   Call RegWriteValue(sp&vle,0,2)
  70.  end if
  71.  
  72. End Sub
  73.  
  74. 'Called when the Plugin is about to be removed from memory
  75. Sub Plugin_Terminate
  76. End Sub
  77.